home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
te2_130t.arj
/
TE2INST.003
/
Obern.SCR
< prev
next >
Wrap
Text File
|
1994-03-28
|
2KB
|
101 lines
;*************************************************************************;
;* TRECORD (TE/2 script generation utility) v. 1.01 *;
;* Copyright (C) 1993 Allan M. Hart All rights reserved *;
;* *;
;* Script File generated on Thu Mar 17 22:21:22 1994 *;
;* *;
;*************************************************************************;
; Modified for distribution, Brady Flowers
string usrName = "Your Name Here"
string trans1
string trans2="^M"
integer passwnum=3
string passw
string trans4="n^M"
string trans5="n^M"
string wait1="Please enter your FIRST and LAST name: "
string wait2
string wait3="Please enter your Password: "
string wait4="Do you wish to check for mail [Y,n]? "
string wait5="More [Y,n,=]? "
string trans
string wait
integer loopnum
integer numloops=5
integer i
PROGRAM
if strcmp(usrName, "Your Name Here") == 0
ErrorMsg("Before using the Obern.SCR script you must first", "edit it to use your own name!")
ErrorMsg("You will also need to make sure that your login", "password is recorded in the dialing directory.")
STOP
endif
trans1 = usrName + "^M"
wait2 = usrName + " [Y,n]? "
if !connected
dial("Obern")
endif
if connected
i = 0
do
if i == 8
ErrorMsg("Unable to get initial prompt", "from the Oberon BBS")
STOP
endif
sendbyte(13)
i = i + 1
loop until waitfor("Please press your [ESC] Key Now!", 3)
sendbyte(27)
DirActive = FALSE
loopnum=1
do while loopnum!=numloops+1
if loopnum==1
wait=wait1
trans=trans1
endif
if loopnum==2
wait=wait2
trans=trans2
endif
if loopnum==3
wait=wait3
endif
if loopnum==4
wait=wait4
trans=trans4
endif
if loopnum==5
wait=wait5
trans=trans5
endif
do while 1
if waitfor(wait, 2)
BREAK
endif
if KbdAbort
if (GETYESNO("Abort this script?", null, TRUE))
STOP
else
BREAK
endif
endif
loop
if passwnum==loopnum
passw=PASSWORD("")
transmit(passw+"^M")
else
transmit(trans)
endif
loopnum=loopnum+1
loop
endif
END